(solar-atn2): Give correct quadrant for arctan.

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 889129858d9a8f41aa71ea0c23db456c60dc56b7..10c385ac4a277506b38f19d5adc4a8b3091f4b5d 100644 (file)
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -262,7 +262,7 @@ Returns nil if nothing was entered."
    "Arctan of point X, Y."
    (if (= x 0)
        (if (> y 0) 90 270)
-     (solar-arctan (/ y x) x)))
+     (solar-arctan (/ y x) (solar-xy-to-quadrant x y))))
 
 (defun solar-arccos (x)
      "Arcos of X."